home *** CD-ROM | disk | FTP | other *** search
/ Programming Languages Suite / ProgLangD.iso / TURBOPASCAL WIN / WIN31.PAK / PENWOEM.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1992-06-08  |  2.7 KB  |  79 lines
  1. {*******************************************************}
  2. {                                                       }
  3. {       Turbo Pascal for Windows Run-time Library       }
  4. {       Windows 3.1 API Interface Unit                  }
  5. {       Pen Windows APIs into Recognizer Layer          }
  6. {                                                       }
  7. {       Copyright (c) 1992 Borland International        }
  8. {                                                       }
  9. {*******************************************************}
  10.  
  11. unit PenWOEM;
  12.  
  13. interface
  14.  
  15. uses WinTypes, PenWin;
  16.  
  17. type
  18.   TFuncResults = function(lprcresult: PRCResult; R: TRec): Integer;
  19.  
  20. { Initialization Functions }
  21.  
  22. const
  23.   wcr_RecogName          = 0;
  24.   wcr_Query              = 1;
  25.   wcr_ConfigDialog       = 2;
  26.   wcr_Default            = 3;
  27.   wcr_RCChange           = 4;
  28.   wcr_Version            = 5;
  29.   wcr_Train              = 6;
  30.   wcr_TrainSave          = 7;
  31.   wcr_TrainMax           = 8;
  32.   wcr_TrainDirty         = 9;
  33.   wcr_TrainCustom        = 10;
  34.   wcr_QueryLanguage      = 11;
  35.   wcr_UserChange         = 12;
  36.   wcr_Private            = 1024;
  37.  
  38. { sub-function of wcr_UserChange }
  39. const
  40.   cruc_Remove            = 1;
  41.  
  42. { Return values for wcr_Train Function }
  43. const
  44.   Train_None             = $0000;
  45.   Train_Default          = $0001;
  46.   Train_Custom           = $0002;
  47.   Train_Both             = Train_Default or Train_Custom;
  48.  
  49. { Control values for TrainSave }
  50. const
  51.   Train_Save             = 0;  { Save changes that have been made }
  52.   Train_Revert           = 1;  { Discard changes that have been made }
  53.  
  54. function ConfigRecognizer(wConfigRecog: Word; wParam: Word;
  55.   lParam: Longint ): Word;
  56. function InitRecognizer(lprc: PRC): Bool;
  57. procedure CloseRecognizer;
  58.  
  59. { Recognition Functions }
  60. function RecognizeInternal(lprc: PRC; lpfuncresults: TFuncResults): TRec;
  61. function RecognizeDataInternal(lprc: PRC; hPenData: THPenData;
  62.   lpfuncresults: TFuncResults): TRec;
  63.  
  64. { Training Functions }
  65. function TrainInkInternal(lprc: PRC; hPenData: THPenData; lpsyv: PSYV): Bool;
  66. function TrainContextInternal(lprcresult: PRCResult; lpsye: PSYE;
  67.   cSye: Integer; lpsyc: PSYC; cSyc: Integer): Bool;
  68.  
  69. implementation
  70.  
  71. function ConfigRecognizer;                   external 'MARS' index 4;
  72. function InitRecognizer;                     external 'MARS' index 5;
  73. procedure CloseRecognizer;                   external 'MARS' index 6;
  74. function RecognizeInternal;                  external 'MARS' index 2;
  75. function RecognizeDataInternal;              external 'MARS' index 3;
  76. function TrainInkInternal;                   external 'MARS' index 7;
  77. function TrainContextInternal;               external 'MARS' index 8;
  78.  
  79. end.